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14 septs PASRTL.SR 
MODULE PASS$DELET 
! File: PASDELETE.B32 Edit: SBL1001 


BEGIN 


BOSESSESLSLESSOSS SSE EEE SST TT CTT TPCT CCT e eC Cece ec ceca cei cece icc eee ii ari iis) 
® 


i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
i® ALL RIGHTS RESERVED. 


iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
Hd og IN ACCORDANCE WITH THE TERMS OF SUCH aint AND so THE 


* 
* 
oa 
® 
® 
® 
i OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i TRANSFERRED. . 
® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
® 
*® 
® 
® 
& 
® 
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'w DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
Me SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

002 it 

bos Lee E EAA 

00 ! 

002 

003 '4¢ 

Oo8 } FACILITY: Pascal Language Support 

003 ; ABSTRACT: 

003 This module contains PASSDELETE, which implements the 

bos VAX-11 Pascal DELETE procedure. 

Ons ENVIRONMENT: User mode - AST reentrant 

004 : AUTHOR: Steven B. Lionel, CREATION DATE: 29-January-1982 

004 MODIFIED BY: 

O44 : 1-001 - Original. SBL 29-January-1982 
0046 : 
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ro 
TE 
ty AB, *PASSDELETE 


wr 


es. 0140 1 - DELETE procedure’ 

; a) 141 1 GLOBAL ROUTINE ae 44 ah ( 

: 1 146 1 PFV: REF SPASSPFV_FILE_VARIABLE, ' File variable 

3 8 143 (1 ERROR ! Unwind address if error 
; #8 144 1 ): NOVALUE = 

; ge 145 1 

; 5 199 1 !e¢ 

; Hy iin ! FUNCTIONAL DESCRIPTION: 

; 88 149 1! PASSDELETE implements the VAX-11 Pascal DELETE procedure. It 

; 4 Biey : } deletes the current file component. 

; 4! 0156 : CALLING SEQUENCE: 

3 98 b182 7: CALL PASSDELETE (PFV.mr.r C, ERROR.j.r)) 

; 94 0155 1! 

; 95 0156 1 ! FORMAL PARAMETERS: 

; 0157 1! 

s 97 0158 1! PFV - The Pascal File Variable (PFV) passed by reference. 
: + 3122 : The structure of the PFV is defined in PASPFV.REQ. 
; 100 0161 1! ERROR - Optional. If specified, the address to unwind to 
; 101 Bog 1! if an error occurs. 

3 106 0165 1! 

; 10 0164 1 ! IMPLICIT INPUTS: 

: 104 0165 1! 

; 105 0166 1! NONE 

; 106 0167 1! 

: 107 0168 1 ! IMPLICIT OUTPUTS: 

; 108 0169 1! 

; 109 0170 1! NONE 

3; 110 0171 1! 

s 911 Bite 1 ! ROUTINE VALUE: 

é Ve 0173 1! 

oe 0174 1! NONE 

3 «114 0175 1! 

s 999 0176 1 ! SIDE EFFECTS: 

; «116 0177 1! 

3; (117 0178 1! NONE 

; «118 0179 1! 

3; 119 0180 1 ! SIGNALLED ERRORS: 

: 120 0181 1! 

; 121 Bag :% FILNOTOPE - File not open 

$ \$¢ gi3 1: FILNOTINS = File is not in Inspection mode ‘ ; : : 
s 0184 1! DELNOTALL = DELETE is not allowed for a sequential organization file 
3 124 0185 1! FILNOTDIR - file is not opened for direct access 

s Yes 0186 1! FILNOTKEY = file is not opened for keyed access 

: 126 0187 1! CURCOMUND - current component is undefined 

: 27 0188 1! ERRDURDEL - Error during DELETE 

: 128 0189 1! 

3 94 0190 1! 

3; 130 0191 1 !-- 

: 151 bias 1 

3 136 019 BEGIN 

, $5 0194 

3; «(134 0195 LOCAL Z 

; «6135 0196 FCB: REF $SPAS$FCB_CONTROL_BLOCK, ' File Control Block 
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197 PFV_ADDR: VOLATILE, ' Enable argument 

138 UNWIND_ACT: VOLATILE, ! Enable argument 

+44 ERROR_ADDR: VOLATILE; ! Enable argument 

01 BIND 

86 RAB = FCB: REF BLOCK C, BYTE] ' RMS RAB 

03 FAB = FCB: REF SPASSFAB_FCB STRUCT; i RMS FAB 

05 BUILTIN 

38 ACTUALCOUNT; 

08 ENABLE 

09 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERRUM_ADDR); 


IF ACTUALCOUNT () GEQU 2 
ERROR_ADDR = .ERROR; ' Set unwind address 
+ 
Set PFV address enable argument. 
PFV_ADDR = PFV CPFVS$R_PFVI; 


14 


Validate and lock PFV 


PASSSVALIDATE_PFV (PFV CPFVSR_PFVIJ; FCB); 


14 
Set unwind action to unlock file. 


UNWIND_ACT = PAS$K_UNWIND_UNLOCK; 


1+ 
Open file if it should be implicitly opened. 


IF NOT .PFV CPFVS$V_VALID) 
PASSSOPEN_IMPLICIT (PFV CPFVSR_PFVJ, FCB CFCBSR_FCB); FCB); 


'¢ 
Verify that the file is open. 
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IF NOT .PFV CPFVSV_OPEN) 
$PASS$IO_ERROR (PAS$_FILNOTOPE 0); 


'¢ 
Verify that the file is in Inspection mode. 
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IF NOT .FCB CFCBSV_INSPECTION) 


he a 
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193 THEN | 
194 SPASSIO_ERROR (PAS$_FILNOTINS,O); 


14 
Verify that the file is not sequential organization. 


a CFABSB_ORG) EQL FABS$C_SEQ 
SPASSIO_ERROR (PASS$_DELNOTALL,0); 


1+ 
Verify that the file was opened either direct or keyed. 


pejotoleoleles +heh s)s] 


es 


i CFCBSV_SEQUENTIAL] ! Neither DIRECT nor KEYED 
If .FAB CFABSB_ORG] EQL FABSC_REL ' Relative? 
SPASSIO_ERROR (PAS$_FILNOTDIR,O) 
' Must be X 
SPASSIO_ERROR (PAS$_FILNOTKEY,0); 
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14 
Do the SDELETE to delete the current component. 


co SPASSRMS_OP (SDELETE (RAB=.RAB)) 
BEGIN 
SDELETE failed. Determine if the error was ‘'no current record" 


‘ so, give error ‘current component is undefined’, otherwise 
generic error 


IF .RAB CRABSL_STS] EQL RMS$_CUR 
SPASSIO_ERROR (PAS$_CURCOMUND) ! Current component undefined 
i. SPASSIO_ERROR (PAS$_ERRDURDEL); ! Error during DELETE 


WN ANIAIIINIPONONPONINININDS 2 2 SS SS "OOO 
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+ 

! Undefine file buffer 

' Cancel previous LOCATE ‘ 

! Indicate successful operation 
Unlock the file 


FCB CFCBSL_STATUS) 
FCB CFCBS$V“LOCATE) 

PFV$V~DFB) = 0; 
PFV CPFV$V~LOCk) = 6; 


RETURN; 
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PAS DEL TE = DELETE procedure PASRTL.SRCJPASDELETE. 5 2:1 (3) 
; 250 0311 1 END; ! End of routine PASSDELETE ; 
-TITLE PASSDELETE DELETE procedure : 
-IDENT \1-007\ : 
.EXTRN PASSDELETE, PAS$SS$IO_HANDLER : 
“EXTRN PASSSVALIDATE_PFV : 
-EXTRN PASSSOPEN_IMPLICIT ; 
-EXTRN PASSSSIGNAL, PASS$K_FILNOTOPE : 
-EXTRN PASSK_FILNOTINS | ; 
.EXTRN PASS$K~DELNOTALL : 
“EXTRN PAS$K =FILNOTDIR ; 
-EXTRN PASS$K~FILNOTKEY : 
-EXTRN SYS SSDELETE. PAS$K_CURCOMUND : 
“EXTRN PASSK_ERRDURDEL : 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 | : 
00cc 00000 -ENTRY PASSDELETE, Save R2,R3,R6,R7 > 0141) ; 
53 000000006 00 9 00002 MOVAB PASSSSIGNAL, R3 : : 
SE 08 C2 00009 SUBL2 SP : ; 
7E D4 0000 CLRL ERROR ADDR : 0193 : 
04 AE 7C OOO0E CLROQ UNWINB_ACT : ; 
6D OOAB CF DE 00011 MOVAL 13$, (FP) : : 
02 6C 91 00016 CMPB. ss (APS, #2 > 0211 ; 
04 1F 00019 BLSSU : : 
&E 08 AC 00 0001B MOVL ERROR, ERROR_ADDR : 0213 ; 
56 04 AC DO OOOIF 18 MOVL : 0219 | 
08 AE 56 D0 90023 MOVL R ADDR ; : 
000000006 00 16 00027 JSB PASSSVACIDATE_PFV F 0225 ; 
04 AE 01 00 900¢ MOVL #1, UNWIND_ : 0231 ; 
06 06 Ab E8 00031 BLBS = «6 . 3 0237 : 
000000006 00 16 00035 JSB PASSSOPEN_IMPLICIT : 0239 3 
08 07 = Ab 05 £0 00038 2$ BBS a5, 7 : 0245 : 
7E 04 00040 CLRL -(§P) : 0247 : 
7E 006 af 9A 00042 MOVZBL #PASSK_FILNOTOPE, -(SP) ; 3 
g 11 00046 BRB 7 ; 3 
08 FD =A? 03 £0 00048 3$ BBS #3, -3(FCB), 4$ : 0253 : 
7E D4 90040 CLRL -(§P) > 0255 : 
7E 006 8F 9A O004F MOVZBL #PASSK_FILNOTINS, -(SP) ; : 
25 11 00053 BRB : : 
61 AZ 95 00055 4$ TSTB =: 97 (FCB) 3 0261 : 
08 12 90058 BNEQ 5$ : : 
E D4 O0005A CLRL =(SP) ; 0263 : 
7E 006 8F 9a 0005C MOVZBL M#PASSK_DELNOTALL, -(SP) ; : 
18 11 00060 BRB “$ ; : 
18 FC 6A? «CES 00062 58 BLBC 4(FCB), 8$ > 0269 : 
10 61 A? 91 00066 CHPB 0 oO97(FCB). #16 : 0271 3 
08 12 OO06A BNEQ 6$ 3 F 
7E 04 0006C CLRL -(SP) : 0273 | : 
7E 00G 8F 9A O06E MOVZBL #PASS$K_FILNOTDIR, -(SP) ; | : 
06 11 000 BRB 7$ ; : 
7E D4 007% 68: CLRL -(SP) > 0275 | : 
7E 006 i 9a 00076 MOVZBL #PASSK_FILNOTKEY, -(SP) F : 
& 2 FB S007 7$: CALLS #2, PASSS$SIGNAL : : 
04 0007D RET ; : 
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PASSDELETE DELETE proced 14. Sep-1984 4 VAY -11 Bliss-32 V4.0-74 Page 
ti PASSDELETE © DELETE procedure 1ereeen13be 93:89:58 Lea cat sae Spasoecese oS2:1 . 
: 335 O33 ! END ! End of module PASSDELETE 
: 256 16 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: PASSCODE 227 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
flare ee See Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
$ _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 10 0 581 00:01.0 
; _$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 98 22 33 00:00.4 
H COMMAND QUALIFIERS 
; SLESS/CHECK=CFSELD. INITIAL GPTINIZE) /MOTRACE/L ISeL 188 sPASDELE TE /08)=08J8:PASDELETE MSRC$:PASDELETE/UPDATE=(ENH$:PASDELETE 


Size: 227 ¢ 0 data bytes 
Run Time: 00 

Elapsed Time: 00 

Lines/CPU Min: § 

Lexemes/CPU-Min: 1 

ponecy Used: 107 pages 

Compilation Complete 


PAS 
1-€ 


AH-BT13A-SE | DIG NT CORPORATION 
VAX/VMS V4.0 CON . D PROPRIETARY 


